games: Functions for word games.

# How many walks are left when impossible onsets and offsets have been cancelled out?
# rem
# wai
# tek

word=unlist(strsplit("amivptjepisatodn",split="")) # Nine letters
edges=read.table("/Users/ling-jwe/Documents/R/BOGGLE/impossiblecombinations.txt")[,1]

walks=boggles[["walks"]][[2]][,]
testwords=apply(walks,1,function(i){paste(word[i],collapse="")})
solutions=testwords[!(1:length(testwords)%in%unique(unlist(sapply(edges,function(edge){grep(pattern=edge,x=testwords)}))))]

pdf('Rplots.pdf',family="Palatino")
plot(1:10,1:10,cex=0)
text(1:10,1:10,labels=rep('text',10)) # the x-label comes up blank
dev.off()